home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / gadgeted / txt / message.mod < prev    next >
Text File  |  1993-11-04  |  1KB  |  44 lines
  1. (*----------------------------------------------------------------------
  2.   :Program.    Message.mod
  3.   :Contents.   IDCMP-Abfrage eines Fensters
  4.   :Author.     Hubert Bildstein
  5.   :Copyright.  Public Domain
  6.   :Language.   Modula-2
  7.   :Translator. M2Amiga V3.3d
  8.   :History.    V1.0   5.12.1990
  9. ----------------------------------------------------------------------*)
  10.  
  11. IMPLEMENTATION MODULE Message;
  12.  
  13. FROM SYSTEM    IMPORT ADDRESS;
  14. FROM Intuition IMPORT IDCMPFlagSet, IntuiMessage, IntuiMessagePtr, WindowPtr,
  15.                       Window;
  16. FROM Exec      IMPORT WaitPort, GetMsg, ReplyMsg;
  17.  
  18.  
  19. PROCEDURE WaitForMsg (    wptr  : ADDRESS;
  20.                       VAR class : IDCMPFlagSet;
  21.                       VAR code  : CARDINAL;
  22.                       VAR addr  : ADDRESS);
  23. (* Warten auf Meldung vom Fenster *)
  24.  
  25. VAR IMes : IntuiMessagePtr;
  26.     WPtr : WindowPtr;
  27.  
  28. BEGIN
  29.  
  30.  WPtr := wptr;
  31.  
  32.  WaitPort (WPtr^.userPort);
  33.  IMes := GetMsg (WPtr^.userPort);
  34.  
  35.  class := IMes^.class;
  36.  code := IMes^.code;
  37.  addr := IMes^.iAddress;
  38.  
  39.  ReplyMsg (IMes);
  40.  
  41. END WaitForMsg;
  42.  
  43. END Message.
  44.